-- file
import Data.Char

contains6 = filter (elem '6') (map show [1 .. 100])

contains6' :: [Int]
contains6' = map (\str -> read str :: Int) $ contains6

reversesentence :: String -> String
reversesentence str = unwords $ reverse $ words str

-- reverseSentence :: String -> String
-- reverseSentence str = unwords (reverse (words str))
char90 = chr 90

ordZ = ord 'Z'